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Abstract. A new theory of data types which allows for the definition of types as initial 
algebras of certain functors Fam(C) —>■ Fam(C) is presented. This theory, which we call 
positive inductive-recursive definitions, is a generalisation of Dybjer and Setzer’s theory of 
inductive-recnrsive definitions within which C had to be discrete — our work can therefore 
be seen as lifting this restriction. This is a substantial endeavour as we need to not only 
iirtroduce a type of codes for such data types (as in Dybjer and Setzer’s work), but also 
a type of morphisms between snch codes (which was not needed in Dybjer and Setzer’s 
development). We show how these codes are interpreted as functors on Fam(C) and how 
these morphisms of codes are interpreted as natural transformations between such functors. 
We then give an application of positive inductive-recursive definitions to the theory of 
nested data types and we give concrete examples of recursive fuirctions defined on universes 
by using their elimination principle. Finally we justify the existence of positive inductive- 
recursive definitions by adapting Dybjer and Setzer’s set-theoretic model to our setting. 


1. Introduction 


Inductive types are the bricks of dependently typed programming languages: they represent 
the building blocks on which any other type is built. The mortar the dependently typed 
programmer has at her disposal for computation with dependent types is recursion. Usually, 
a type A is defined inductively, and then terms or types can be defined recursively over the 
structure of A. The theory of inductive-recursive dehnitions [DybOO IDS99] explores the 
simultaneous combination of these two basic ingredients, pushing the limits of the theoretical 
foundations of data types. 

The key example of an inductive-recursive dehnition is Martin-Lof’s universe a la 
Tarski |ML84j . A type U consisting of codes for small types is introduced, together with 
a decoding function T, which maps codes to the types they denote. The definition is both 
inductive and recursive; the type U is defined inductively, and the decoding function T is 
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defined recursively on the way the elements of U are generated. The dehnition needs to be 
simultaneous, since the introduction rules for U refer to T. We illustrate this by means of 
a concrete example: say we want to define a data type representing a universe containing a 
name for the natural numbers, closed under S-types. Such a universe will be the smallest 
family of sets {U, T) satisfying the following equations 

U = 1 + Su:C/. Tu^U 

r(inl *) = N (1.1) 

r(inr(u,/)) = T,x:Tu. T{fx) 

In this definition we see how ground types and the type constructor S are reflected in U. 

The left summand of the right hand side of the equation dehning [/ is a code for the type of 
natural numbers, while the right summand is a code reflecting S-types. Indeed the name of 
a the type TiAB for A : Set, B : A ^ Set in the universe (17, T) will consists of a name in U 
for the type A, i.e. an element u:U, and a function / : Tu —>■ U representing the ^-indexed 
family of sets B. The decoding function T maps elements of U to types according to the 
description above: the code for natural numbers decodes to the set of natural numbers 
N while an element (u, /) of the right summand decodes to the S-type it denotes. Other 
examples of inductive-recursive definitions have also appeared in the literature, such as e.g. 
Martin-Lof’s computability predicates [ML72| or Aczel’s Frege structures [Acz8fl] . Lately 
the use of inductive-recursive definitions to encode invariants in ordinary data structures 
has also been considered |EHAfl9] . 

Dybjer ’s |D^ insight was that these examples are instances of a general notion, 
which Dybjer and Setzer |DS99j later found a finite axiomatisation of. Their theory of 
inductive-recursive definitions IR consists of: (i) a representation of types as initial algebras 
of functors; and (ii) a grammar for defining such functors. Elements of the grammar are 
called IR codes, while functors associated to IR codes are called IR functors. The theory 
naturally covers simpler inductive types such as lists, trees, vectors, red-black trees etc. as 
well. Dybjer and Setzer [DS03] then gave an initial algebra semantics for IR codes by showing 
that IR functors are naturally defined on the category Fam(i7) of families of elements of 
a (possibly large) type D and that these functors do indeed have initial algebras. More 
generally, abstracting on the families construction and the underlying families flbration 
TT : Fam(D) —>■ Set, we have recently shown how to interpret IR functors in an arbitrary 
flbration endowed with the appropriate structure |GMNES13| . In this article, we will only 
consider the families flbration. 

There is, however, a complication. When interpreting IR functors such as those building 
universes closed under dependent products, the mixture of covariance and contravariance 
intrinsic in the II operator forces one to confine attention to functors Fam |C| ^ Fam |C| 
or, equivalently, to work with only those morphisms between families which are commuting 
triangles. More abstractly, as we have shown [GMNESI3] . this corresponds to working in 
the split cartesian fragment of the families flbration vr : Fam(C) ^ Set, i.e. to only consider 
those morphisms in Fam(C) which represent strict reindexing. In this paper we remove this 
constraint and hence explore a further generalization of IR, orthogonal to the one proposed 
in Ghani et al. [GMNEST^ . We investigate the necessary changes of IR needed to provide 
a class of codes which can be interpreted as functors Fam(C) —>■ Fam(C). This leads us 
to consider a new variation IR”^ of inductive-recursive definitions which we call positive 
inductive-recursive definitions. The most substantial aspect of this new theory is that in 
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order to define these new codes, one needs also to define the morphisms between codes. 
This is no handle-turning exercise! 

We first recall Dybjer and Setzer’s theory of inductive-recursive definitions (Section [3) • 
To develop the theory we then introduce a syntax and semantics consisting of IR”^ codes 
and their morphisms, and an explanation how these codes are interpreted as functors 
Fam(C) ^ Fam(C), where C is an arbitrary category (Section 0). We then illustrate 
the stronger elimination principles that are possible for positive inductive-recursive defi¬ 
nitions. We consider several examples of catamorphisms that are not possible with ordi¬ 
nary inductive-recursive dehnitions (Section 0). As a practical application, we use positive 
inductive-recursive definitions to shed new light on nested data types (Section [s]). We 
formally compare IR”^ with the existing theory of IR (Section!^), and adapt Dybjer and 
Setzer’s model construction to our setting (Section 0). The material in this paper has been 
formalised in Agda [GMNF14] . 

The paper uses a mixture of categorical and type theoretic constructions. However, the 
reader should bear in mind that the foundations of this paper are type theoretic. In other 
words, all constructions should be understood to take place in extensional Martin-Lof type 
theory with one universe Set. This is entirely standard in the literature. The one exception 
is the use of a Mahlo cardinal required to prove that positive inductive recursive functors 
have initial algebras in Section 0. It should be emphasised that the Mahlo cardinal is only 
used to justify the soundness of the theory, and does not play any computational role. We 
refer the interested reader to Dybjer and Setzer [DS99] — they use a Mahlo cardinal for the 
same purpose — for the technical details. We also use fibrational terminology occasionally 
when we feel it adds insight, however readers not familiar with hbrations can simply ignore 
such comments. 


2. Inductive-recursive definitions 


In increasing complexity and sophistication, inductive definitions, indexed inductive defi¬ 
nitions and inductive-recursive definitions encode more and more information about the 
data structures in question into the type itself. Being situated at the top of this hierarchy, 
inductive-recursive dehnitions provide a unifying theoretical framework for many different 
forms of data t ypes. Inde ed, both inductive and indexed inductive dehnitions are simple 
instances of IR GHM+13 . 

The original presentation of induction-recursion given by Dybjer |DybOO| was as a 
schema. Dybjer and Setzer [DS99] further developed the theory to internalize the concept 
of an inductive-recursive dehnition. They developed a hnite axiomatization of the theory 
through the introduction of a special type of codes for inductive-recursive dehnitions. The 
following axiomatization, which closely follows Dybjer and Setzer [DS99] . presents the syn¬ 
tax of IR as an inductive dehnition. 


Definition 2.1 (IR codes). Let D be a (possibly large) type. The type of IR(D) codes has 
the following constructors: 


d : D 

id : \R{D) 

A : Set / ■.A^\R{D) 


<JAf :IR(D) 















4 


N. GHANI, L. MALATESTA, AND F. N. FORSBERG 


A : Set F : {A ^ D) ^ \R{D) 

6a F :IR(Z)) 

This is the syntax of induction-recursion — it is quite remarkable in our opinion that 
this most powerful of theories of data types can be presented in such a simple fashion. 
These rules have been written in natural-deduction style and we may use the ambient type 
theory to define, for e xample, the function / in the code caJ- An example of an IR code is 
given in Example l2.5l : this code represents the universe containing the natural numbers and 
closed under S-types given in Equation (|l.ll) . We now turn to the semantics of induction- 
recursion: we interpret IR codes as functors, and to this end, we use the standard families 
construction Farm from category theory. We start recalling the definition of the category 
Fam(C) of families of objects of a category C. 

Definition 2.2. Given a category C, the category Fam(C) has objects pairs {X,P) where 
X is a set and P : X —)• C is a functor which we can think of as an X-indexed family of 
objects of C. A morphism from (X, P) to (Y, Q) is a pair (h, k) where h : X ^ Y is a 
function, and k : P ^ Q o h is a natural transformation. 

Of course, the naturality condition in the definition of a morphism of families is vacuous 
as the domains of the functors in question are discrete. 

Remarks 2.3. For any category C, the category Fam(C) always has rich structure: 

• Fam(C) is fibred over Set (see e.g. Jacobs |Jac99] l. We omit the definitions here, but 
recall the standard splitting cleavage of the fibration vr : Fam(C) —Set which is relevant 
later: a morphism {h, k) : (X, P) — (Y, Q) is a split cartesian morphism if A: is a family 
of identity morphisms, i.e. if P = Q o h. 

• Fam(C) is the free set indexed coproduct completion of C; that is Fam(C) has all set 
indexed coproducts and there is an embedding C ^ Fam(C) universal among functors F : 
C ^ B where D is a category with set indexed coproducts. Given an X-indexed collection 
of objects {Xa, Pa)a-A in Fam(C), its X-indexed coproduct is the family Yl,a-Ai^a-,Pa) = 
(Ea:A^a,[Pa]a:A). 

• Fam(C) is cocomplete if and only if C has all small connected colimits (Garboni and 
Johnstone |GJ95t dual of Prop. 2.1]). 

• Fam is a functor CAT —>■ CAT; given F : C ^ B, we get a functor Fam(P) : Fam(C) —>■ 
Fam(B) by composition: Fam(F)(X, P) = {X,F oP). Here CAT is the category of large 
categories. 

When C is a discrete category, a morphism between families (X, P) and {Y,Q) in Fam(C) 
consists of a function h : X ^ Y such that P x = Q (hx) for all x in X. From a fibrational 
perspective, this amounts to the restriction to the split cartesian fragment Fam |C| of the 
fibration tt : Fam(C) —> Set, for C an arbitrary category. This observation is crucial for 
the interpretation of IR codes as functors. Indeed, given a type D, which we think of as 
the discrete category |P| (with objects terms of type D), we interpret IR codes as functors 
Fam |P| ^ Fam |P|. 

Theorem 2.4 (IR functors |DS03] 1. Let D be a (possibly large) type. Every code 7 : IR(P) 
induces a functor 


I 7 ] : Fam |P| —Fam |P| 
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Proof. We define [ 7 ]] : Fam |D| ^ Fam |Z)| by induction on the structure of the code 7 . We 
first give the action on objects: 

li4{x,p) = {i,x..c) 
laAfKX,P) = Y^lfaj{X,P) 

a :A 

ISaFUX,P)= Y. IF{Po9)}{X,P) 

g -.A^X 

We now give the action on morphisms. Let {h, id) : {X, P) -A {Y, Q) be a morphism in 
Fam \D\, i.e. h : X ^ Y and Q o h = P. 

lLcj{h,\d) = (idi,id) 

[[o-a/](/i, id) = [inao If a}{h,\d)]a-.A 

id) = [\nhogolF{Qohog)}{h,\d)]g.A^x 
Here, the last line type checks Q oh = P since D is discrete. Hence 

Qohog = Pog (2-1) 

and we can apply the induction hypothesis. □ 


Note how the interpretatio n of both a and 5 codes makes essential use of coproducts of 
families as defined in Remarks l2.3l . In particular, the interpretation of a code 5aF uses as 
the coproduct’s index set the function space A^X, which is a set since both A and X are. 

Ghani et al. |GHM^13 introduces morphisms between (small) IR codes. The morphisms 
are chosen to make the interpretation function |—]] : IR(Ll) ^ (Fam \D\ —>■ Fam |D|) full and 
faithful. Thus, transporting composition and identity along this function makes IR(L*) into 
a category, and |—] : IR(L*) —>■ (Fam \D\ -A Fam |L)|) can really be seen as a full and faithful 
functor. We will draw inspiration from this in Section when we generalise the semantics 
to endofunctors on Fam(C) for possibly non-discrete categories C. Note however that the 
definition of morphisms between codes we give here differs from the one appearing in Ghani 
et al. GHM~*~ . The key idea of the latter is a characterization of the interpretation of 
6 codes as left Kan extensions. In our more general setting where C can be a non-discrete 
category, this characterization fails. As a consequence, we lose the full and faithfulness of 
the interpretation functor |—]] and we have to prove by hand that the set of codes and 
morphisms between them actually is a category. Full and faithfulness of the interpretation 
is convenient and desirable, and often simplifies calculations. Nonetheless, it is not an 
essential property, and we manage to make do without it. 

We call a data type inductive-recursive if it is the initial algebra of a functor induced 
from an IR code. Let us look at some examples. 


Example 2.5 (A universe closed under dependent sums). In the introduction, we intro¬ 
duced a universe in Equation (|l.ll) . containing the natural numbers and closed under S- 
types, and claimed that this universe can be defined via an inductive-recursive definition. 
Indeed, one can easily write down a code 7 n,e : IR(Set) for a functor that will have such a 
universe as its initial algebra: 

7 N,s :=tN+iR<5i(X^(5x*(K^iS(X*)y)) : IR(Set) 

Here we have used 7 -Fir 4 •= <72 (0 1 -^ 7 ; 1 i-)- 7 ') to encode a binary coproduct as a 2- 
indexed coproduct. Also, in the above, note that X : 1 —>■ Set and so X* is simply the 
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application of X to the canonical element of 1. If we decode 7N,s, we get a functor which 
satisfies 

l 7 N,sl(C/,r) ^ (1 + Su:17.r(u) ^ C/,inL^N;inr(u,/) ^ S x :T(u). r(/(x))) 

so that the initial algebra (C/, T) of [[7 n,s]) which satisfies {U, T) = |7N,s](b^j T) by Lambek’s 
Lemma, indeed satisfies Equation (ll.ljl . 

Example 2.6 (A universe closed under dependent function spaces). In the same way, we 
can easily write a down a code for a universe closed under 11-types: 

7N,n := tn +iR6i{X ^ 5x*(Y ^ lU{X*)Y)) : IR(Set) 

Even though this looks extremely similar to the code in the previous example, we will see 
in the next section that there is a big semantic difference between them. 


3. Positive Inductive-Recursive Definitions 


Theorem l2.4l tells us that IR codes can be interpreted as functors on families built over a 
discrete category. What happens if we try to interpret IR codes on the category Fam(C), 
and not just on the subcategory Farm |C|, whose morphisms are the split cartesian ones only? 
Consider the following morphism in Fam |C|: 



What if the diagram above does not commute on the nose, since C is not simply a discrete 
category, but a category whose intrinsic structure we want to keep track of? For instance, it 
is natural to require that the diagram above only commutes up to isomorphism, i.e. P{x) = 
Q{h{x)) instead of P{x) = Q{h{x)). What structure is required to interpret inductive- 
recursive definitions in this larger category? The problem is that if we allow for more 
general morphisms, we can not prove functoriality of the semantics of a <5 code as it stands 
anymore: it is essential to have an actual equality on the second component of a morphism 
in Fam(C) in order to have a sound semantics. 

In this section we propose a new axiomatization which enables us to solve this problem. 
This new theory, which we dub positive inductive-recursive definitions, abbreviated IR”*", 
represents a generalization of IR which allows the interpretation of codes as functors defined 
on Fam(C) for an arbitrary category C. In particular, if we choose C to be a groupoid, 
i.e. a category where every morphism is an isomorphism, we get triangles commuting up to 
isomorphism as morphisms in Fam(C). 


3.1. Syntax and Semantics of IR'^(C). The crucial insight which guides us when intro¬ 
ducing the syntax of IR^ is to deploy proper functors in the introduction rule of a <5 code. 
This enables us to remove the restriction on morphisms within inductive recursive defini¬ 
tions; indeed, if we know that F : (A ^ C) —> IR "^(C ) is a functor, and not just a function, 
we do not have to rely on an identity in Equation (12.Ih , but we can use the second component 
of a morphism {h, k) : {X, P) {Y, Q) in Fam(C) to get a map Pog Qohog; then we can 
use the fact that F is a functor to get a morphism between codes F{P o g) F[Q oho g). 
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But, now we have to roll up our sleeves. For F : C) —>■ IR"^(C) to be a functor, 

we need both ^ C and IR^(C) to be categories. While it is clear how to make ^ C 
a category, turning IR“'"(C) into a category entails defining both codes and morphisms 
between codes simultaneously, in an inductive-inductive fashion |NFS12l INF 13] . We give 
an axiomatic presentation of IR”*" analogously to the one given in Section y for the syntax 
of IR; however we now have mutual introduction rules to build both the type of IR^(C) 
codes and the type of IR^(C) morphisms, for C a given category. The semantics we give 
then explains how IR^(C) codes can be interpreted as functors on Fam(C), while IR^(C) 
morphisms between such codes can be interpreted as natural transformations. 

Definition 3.1. Given a category C we simultaneously define the type IR^(C) of pos¬ 
itive inductive-recursive codes on C, and the type of morphisms between these codes 
Hom,R+(c)(-,-):IR+(C)^IR+ (C) —7> type as follows: 

• IR''"(C) codes: 

c : C 

ic :IR+(C) 


A : Set f : A ^ IR+(C) 
cTAf ■■ IR+(C) 


• IR'’"(C) morphisms: 


^:Set F : ^ C) ^ IR+(C) 

6aF : IR+(C) 

_/ : Homc(c,cO_ 

(7^i)(/) : Hom|R+(c)(tc,tc') 


a:A^B p : g{a{x))) 

{a^a){a,p) : Hom|R+(c)(f7A/,crs5) 


a : B ^ A p : Nat(F, G{— o a)) 

{5^6){a,p) : Hom|R-H(Q((iAF, (5 bG) 

In the last clause, we have indicated with Nat(F, G{— o a)) the collection of natural trans¬ 
formations between the functors F and G{— o a) : (^ —)■ C) IR~’'(C). Note also the 
contravariant twist in the type oi a B ^ Am. this clause. 

We need to make sure that Definition l3.ll really defines a category, i.e. that composition 
of IR^ morphisms can be defined, and that it is associative and has identities. This can be 
proved by recursion on the structure of morphisms: 

Lemma 3.2. Let C be a category. Then IR^(C) is a category with morphisms given by 

Hom|R+(j.). 

Proof. We define : Hom|R+^j.^(x, x) by recursion on x: 

id^ = i)(idc) 

id^p, = (5=i>(f)(idA, A h. 
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Composition _ 0 |p+ _ : Hom|p+^Q(y, z) —>■ Hom|p+^Q(x, y) —> Hom|p+^Q(a;, is defined by 
recursion on / : Hom|p+^Q(y, z) and g : Hom|p+^Q(x, y): 

(''^0(/) 0|R+ = (''^0(7 °c g) 

{a^a){a, p) 0|p+ ((T=^(7)(/3, r) = (cj^(T)(a o /3, A x . p{a{x)) 0|p+ t(x)) 
{5^5){a,p) o^p,+ {6^6 ){P,t) = {6^6){P o a, Xh. p{h o p) 0|p,+ r(/i)) 

Three more straightforward inductions prove that composition is associative, and that id"*" 
is both a left and a right unit for composition. Q 

We now explain how each code 7 : IR^(C) is interpreted as an endofunctor 

I 7 ]] : Fam(C) ^ Fam(C) 

We call a functor which is isomorphic to a functor induced by an IR"*" code an IR"*" functor. 
The semantics of IR"*" closely follows the one given in Section y; as before we make essential 
use of coproducts in Fam(C). Having said that, the crucial feature which separates the 
semantics of IR"^ from the semantics of IR is the following: when explaining the seman¬ 
tics of IR, we first interpret IR codes as functors and then later define morphisms between 
codes. We can then interpret the morphisms as natural transformations between the corre¬ 
sponding functors. In IR"*", the type of codes and the type of morphisms between codes are 
simultaneously defined in an inductive-inductive way, and therefore they are also decoded 
simultaneously as functors and natural transformations respectively. This is exactly what 
the elimination principle for an inductive-inductive definition gives. 

In the following theorem, note that there is no restriction on the category C — all 
structure that we need comes for free from the families construction Fam. 


Theorem 3.3 (IR"*" functors). Let C be an arbitrary category. 

(i) Every code 7 : IR"^(C) induces a functor [ 7 ]] : Fam(C) —Fam(C). 

(ii) Every morphism p : IR"*"(C)( 7 , 7 ') for codes 7 , 7 ^ : IR"*"(C) gives rise to a natural 
transformation IpJ : I 7 ] —A I 7 ']]. 


Proof. While the action on objects is the same for both IR"*" and IR functors, the action 
on morphisms is different when interpreting a code of type 5aF: in the semantics of IR"*" 
we exploit the fact that T : (H — >■ C) ^ IR"*"(C) is now a functor, so that it also has an 
action on morphisms (which we, for the sake of clarity, write F^). We give t he ac tion of 
IR"*" functors on morphisms only, and refer to the semantics given in Theorem \2.4 for the 
action on objects of Fam(C). 

The action on morphisms is given as follows. Let {h,k) : {X,P) {Y,Q) in Fam(C). 

We define | 7 ]](/i,A:) : | 7 ]](X, P) —> | 7 l(T, Q) by recursion on 7 : 


lLcj{h,k) = (idi,idc) 
l(^AfKh,k) = [\na o lfaj{h,k)]a-.A 

l6AF}{h,k) = [\nhog o IF{Q o h o g)}{h,k) o lF^{g*{k))}(^x,P)]g:A^X 


In the last clause g*{k) : P o g —^ Q oho g \s the natural transformation with component 
g*{k)a = kga : P{ga) -A Q{k{g a)); note that such a natural transformation is nothing 
but the vertical morphism above A obtained by reindexing (idx,A;) along g in the families 
fibration tt : Fam(C) —Set. 
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We now explain how an IR"*" morphism p : 7 —>■ 7 ' is interpreted as a natural transfor¬ 
mation IpJ : I 7 ]] —^ I 7 '] between IR+ functors by specifying the component |p 1 (v:,p) at 
{X,P) : Fam(C). Naturality of these transformations can be proved by a routine diagram 
chase. 

[(''=i'0(/)l(x,P) = (idi,/) 

l{a^a){a,p)j(^x,P) = [ina(x) o lp{x)j(x,P)]x:A 

|((5=^5)(a, p)]](X,P) = [iPgoo: O l_P{Pog)^{X,P)]g:A^X CH 

Remark 3.4. In the conference version of this paper |GMNFf^ . we considered a different 
collection of morphisms; since more morphisms makes it easier to define codes, we tried 
to include as many morphisms as possible. As a result, the proof that IR’^(C) is a cate¬ 
gory becomes quite long and tedious, although straightforward. In this presentation, we 
have instead decided to restrict ourselves to the smallest possible “usable” combination of 
morphisms. It should be noted that our results are completely parametric in the choice of 
morphisms used; any collection that represents natural transformations between the codes 
works, as long as the identity morphisms and composition can be defined. The range spans 
all the way from no non-identity morphisms at all (in which case it is rather hard to dehne 
a functor (A ^ C) —> IR'^(C)!) to taking Hom|R+(x,y) = |x] -A |y]], which gives rise to a 
full and faithful interpretation by dehnition. The latter would mean that the interpretation 
|—]] would need to be defined simultaneously with the codes, with the effect that the very 
dehnition of positive inductive-recursive dehnitions itself would be inductive-recursive. To 
avoid this stronger assumption in the metatheory, we prefer the current formulation, where 
the meta-theory only uses inductive-inductive dehnitions — a much weaker principle. 

Let us now return to the examples from the end of Section [3. 

Example 3.5 (A universe closed under dependent sums in Fam(Set°P)). In Example I 2 . 5 I . 
we dehned an ordinary IR code 7 n,s : IR(Set) for a universe closed under sigma types. We 
can extend this code to an IR”^ code 

7 N,s = ^N+iR5i(X^5x*(T^iS(A*)y)) : IR+(Set°P) 

where now G := Y lTi{X*)Y and F := X >-A 5x*G need to be functors. Given 
f :Y -A Y'm. X ^ Set°P, i.e. an A-indexed collection of morphisms fx '■ Y{x) -A Y'{x) in 
Set°P, we have Sx : {X*).fx : Y{X*) Y -A S(A*) Y' in Set°P so that we can dehne 

G{f) : i S(A*) Y -A i Y{X*) Y' 
hyG{f) = {i^i){Yx-.{X*).fx). 

We also need E to be a functor. Given / : X_-A A' in 1 —> Set°P, we need to dehne 
F{f) : 5x* G -A 6x'* G. According to Dehnition l3.ll . it is enough to give an a : X'* -A X* 
and a natural transformation p from G to G{— o a). We can choose a = /*, and p to be 
the natural transformation whose component at Y : X* ^ Set°P is given by py = ^ 

where [inf^x]x:X'* ■ F,{X'*)Y o ^ Y{X*)Y. Notice that working in Set°P 
made sure that /* was going in the right direction. 

Exa mple 3.6 (A universe closed under dependent function spaces in Fam(Set^)). In Ex¬ 
ample D.fil . we saw how we could use induction-recursion to dehne a universe closed under 
II-types in Fam |Set|, using the following code: 

7 N,n = ^N+iR5i(A^5x*(i"^in(A*)y)) : IR(Set) 
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If we try to extend this to an IR”^ code in Fam(Set) or Fam(Set°P), we run into problems. 
Basically, given a morphism f : X' ^ X, we need to construct a morphism liX' (Y of) —>■ 
liXY, which of course is impossible if e.g. X' = 0, X = 1, and y* = 0. 

Hence the inherent contravariance in the H-type means that 7N,n does not extend 
to a IR'^(Set) or IR“*'(Set°'’) code. However, if we move to the groupoid Set^, which is 
the subcategory of Set with only isomorphisms as morphisms, we do get an IR^(Set^) 
code describing the universe in question, which is still living in a category beyond the 
strict category Fam |Set|. It would be interesting to understand the relevance of positive 
induction-recursion to Homotopy Type Theory |Unil3] where groupoids and their higher 
order relatives play such a prominent role. 


4. Stronger elimination principles 

From Example I 3 . 5 I we know that the IR code 7 n,s defining a universe containing the set of 
natural numbers N and closed under S-type can be extended to a IR'*' code of type IR^(Set^) 
or IR^(Set°'’). Thus, the code 7 n,s can be interpreted as an endofunctor on Fam(Set^) or 
on Fam(Set°'’) respectively. In this section we aim to explore by means of an example what 
the elimination principle for IR'*' codes can be used for: we show how the simple elaboration 
of the code 7n,s to a code of type IR^(Set^) offers us the possibility to implement a more 
sophisticated recursion principle on the universe we are currently building. 

Recall that from the perspective of initial algebra semantics, the elimination principle 
for a type is captured by the universal property of the initial algebra: if F is an endofunctor 
and (/ii?, inp) its initial algebra, then we know that for any other algebra {X, f) there exists 
a (unique) T-algebra homomorphism aj : fip ^ X which makes the following diagram 
commute: 

Fflp -^ fJ.F 

F{ag) OLg 

FX - 

a 

The initial property of {fj.F,inF) thus gives us a definition by recursion into any other type 
possessing the right E-algebra structure. By working in Fam(C) instead of Fam |C|, we are 
allowing many more algebras compared to ordinary inductive-recursive definitions, or put 
differently, we get a stronger elimination principle. 

Example 4.1. To see why a stronger elimination principle is sometimes necessary, consider 
the initial algebra (([/*, T*), (ino, ini)) for a code 7 i,n,s : IR^(Set^) representing a universe 
containing a set 1 with only one element, the set N of natural numbers and moreover closed 
under S-types. The universe U* contains many codes for “the same” set, up to isomorphism. 
For instance, it contains codes for each of the following isomorphic sets: 

1 ^(Sl)l ^ (S1)(S1)1 ... 

N ^(SN)1 ^ (S1)N ^ (S1)(S1)N ... 

Moreover, for each S-type the following isomorphism holds: 

{Yz : {Yx : A)B{x))C{z) ^ {Yx : A){Yy : B{a))C{{x,y)) (4.1) 

Therefore, for each Y set with at least two nested S’s, U* contains a code for both these ways 
to parenthesize a S-type. It might be advantageous to instead keep a single representative 
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for each isomorphism class. We might hope to do so using the initiality of {U*,T*), and 
indeed, the elimination principle for positive inductive-recursive dehnitions allows us to do 
exactly that. 

First of all we need to decide what normal forms for elements in the universe we want. 
We can specify this by defining a predicate NF : U* Set on the universe {U*,T*), which 
decides if a set is in normal form: we decree that the codes for the sets 1 and N are in 
normal form, and a code for T,AB is in normal form if A is in normal form, B{a) is in 
normal form for each a : ^4 is not 1, and hnally it is of the form of the right hand side 

of (14.ip . There is of course some room for different choices here. Formally, and employing 
some cleverness in how we set things up, we can define the predicate by the elimination 
principle for U* by the following clauses: 

NF(i) = T 
NF(N) = T 
NF(Si6) = T 

NF(SN6) =Vn:N.NF(6(n)) 

NF((S(Sa'6')6) = T 

We now dehne a new family (C/nf, Tnf), containing sets in normal forms only, by letting 

Unf :=(Su : C/*)NF(u) 

TnfKp) :=T*{u) 

We can also define a Fam(Set^) morphism {((>, 7 ]) : |7i,n,sK^nF) ^nf) (f^NFi^NF) which 
endows (t/NFi^NF) with an | 7 i,N,sl-algebra structure. For this, is it crucial that we are 
working in Fam(Set^) and not Fam |Set|, since we can only expect that a S-type of normal 
forms is isomorphic to a normal form, not equal to one; i.e. if A is in normal form, and B{a) 

is in normal form for all a : A, then J^AB is not necessary normal (as e.g. ^4 = 1 shows), 

but we can always hnd a normal form isomorphic to TiAB. The function (f) maps A and B 
to this normal form, and r/ is a proof that it is indeed isomorphic to TjAB. We only give 
the dehnition of 4> '■ l7i,N,Elo(f^NF)^ nf) t^NF here; the definition of rj follows the same 
pattern. 

m = {!,*) 

(/>(N) = (N, *) 

(t){t{i,p)b) = {7rob{*),Trib{*)) 

(j){Ti (N,p) 6) = (S N (tto o 6), n i-f 7ri(6(n))) 

4i{t {tNb',p)b) = (SN(n i-F 7ro((/)(...))), (n i-F TTi(<))(...)))) 
where 4>{.. .) = 0(S {b'{n),p{n)){y i-F b{n, y))) 

4>{I1 (S (S a b) b',p) c) impossible case by the def. of NF; we have p : T 

(S 1 b',p) c) impossible case by the def. of NF; we have p : T 
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By initiality of {U*,T*) we get a morphism (nf, correct) making the following diagram 
commute: 




[71, N,sl(nf,correct) 


(nf,correct) 


T"nf) 




(^NF; T"nf) 


The map (nf, correct) recursively computes the normal form for each set in the universe 
{U*,T*). Indeed, nf : [/* —>■ [/nf maps each name tr of a set T{u) in the universe to the 
name of the corresponding set in normal form, while the natural transformation correct^ : 
T*{u) = TNF(nf(u)) ensures that the code actually denotes isomorphic sets. Of course, we 
do not get (nf, correct) for free; defining (f> and rj already amounts to most of the work for 
the full definition. The point is rather that initiality in Fam(Set^) is a definitional principle 
which allows us to define nf and correct. Furthermore, by using initiality, we can give a 
structured definition, where we only have to consider the separate cases in isolation. 


Example 4.2. As another example of the use of elimination principles beyond ordinary 
inductive-recursive definitions, we can define functions between universes with different 
ground sets. Consider two universes Ui, U 2 closed under the same type-theoretic operations, 
but containing different ground sets i?i, B 2 . Given a function Bi B 2 , we would like to 
be able to extend this function to a function Ui ^ U 2 between all of the two universes. For 
example, we could have a universe ([/n,Sj ?N,s)j closed under S-types and containing the 
natural numbers N, and another universe ([/z,S) 7z,s) also closed under S-types but instead 
containing the integers Z as ground set. There ought to exist a function between them in 
Fam(Set°P) (the contravariance is needed for the negative occurrence of U in the code for 
the sigma type), since clearly these two universes are closely related. By the elimination 
principle for positive inductive-recursive definitions, it suffices to provide a function between 
the ground sets, i.e. a function from Z into N, for instance the absolute value function or 
the square function. In detail, every function / : Z —>■ N induces a Fam(Set°P)-morphism 

(t7,s,7z,s) 

showing that ([/z,s, 7z,s) bas an [[ 7 N,sl-algebra structure. Therefore, initiality of ([/n.s, Tn,s) 
gives us a map ([/n,S;Tn,s) —^ (f7,Si7z,s) which uses / to recursively compute the embed¬ 
ding of ([/n,s,7n,s) into ([/z,s, Tz,s)- 


5. Application: A Concrete Representation of Nested Types 

Nested data types |AMU05j have been used to implement a number of advanced data 
types in languages which support higher-kinded types, such as the widely-used functional 
programming language Haskell. Among these data types are those with constraints, such as 
perfect trees [HinOO] : types with variable binding, such as untyped A-terms |FPT99| : cyclic 
data structures [GHUV06]; and certain dependent types |MM04| . 

A canonical example of a nested data type is Lam : Set —>■ Set defined in Haskell as 
follows: 

data Lam a = Var a | App (Lam a) (Lam a) | Abs (Lam (Maybe a)) 
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The type Lam a is the type of untyped A-terms over variables of type a up to a-equivalence. 
Here, the constructor Abs models the bound variable in an abstraction of type Lam a by the 
Nothing constructor of type Maybe a, and any free variable x of type a in an abstraction of 
type Lam a by the term Just x of type Maybe a; The key observation about the type Lam a 
is that elements of the type Lam (Maybe a) are needed to build elements of Lam a so that, 
in effect, the entire family of types determined by Lam has to be constructed simultaneously. 
Thus, rather than defining a family of inductive types, the type constructor Lam defines a 
type-indexed inductive family of types. The kind of recursion captured by nested types is a 
special case of non-uniform recursion IE a 00]. 

On the other hand, ordinary non-nested data types such as List a or Tree a can be 
represented as containers [AAG051 IAbb03] . Recall that a container (S', P) is given by a set 
S of shapes, together with a family P : S ^ Set of positions. Each container gives rise 
to a functor [S, Pjcont • Set —)■ Set defined by [S, P]]cont(^) = : S .P{s) —)• X. Since 

also nested data types such as Lam have type Set Set, it make sense to ask the following 
question; Are nested data types representable as containers? There would be benefits of 
a positive answer, since container technology could then be applied to nested data types. 
For instance, we could operate on nested types using container operations such as the 
derivative, and classify the natural transformations between them. Note in particular that 
the canonical recursion operator fold for nested data types is a natural transformation. 

We give a positive answer to the above question using IR"^. As far as we are aware, this 
is a new result. We sketch our overall development as follows: 

(i) We define a grammar Nest for defining nested types and a decoding function (— D : 
Nest ^ (Set ^ Set) (Set —>■ Set). The data types we are interested in arise as 
initial algebras /r(|A^|) for elements N of the grammar. 

(ii) We show that restricts to an endofunctor (lW|)cont : Cont ^ Cont on the category 
Cont of containers. 

(hi) Noting that Cont = Fam(Set°P), we use IR"*" to define (A^Dcont- Hence by the results 
of this paper, (|A^|)cont has an initial algebra /i(|W|)cont- We finish by arguing that 
/r(lW|) = |/i(|A^[) Conti Cont hence that, indeed, nested types are containers. 


A Grammar for Nested Types. We now present a grammar for dehning nested data 
types. Since our point is not to push the theory of nested data types, but rather to illustrate 
an application of positive induction-recursion, we keep the grammar simple. The grammar 
we use is 

P=\d\KC\P + P\PxP\P®P 

where C is any container. The intention is that Id stands for the identity functor map¬ 
ping a functor to itself, KC stands for the constant functor mapping any functor to the 
interpretation of the container C, -|- and x stand for the coproduct and product of func¬ 
tors respectively, and ® for the pointwise composition of functors. These intentions are 
formalised by a semantics for the elements of our grammar given as follows 


Mi" 

(A C\)F 
(To -I- /'ll) F 
(7b X Pi) F 
(7b ® T'l) F 


Nest —> (Set —^ Set) ^ (Set ^ Set) 
F 

[C'lcont 

(T-q) F + (T-i) F 
(T-q) F X (T-i) F 
(7b) F o (7i|) F 
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For example, the functor 

LF X = X + {FX X FX) + F{X + 1) 
whose initial algebra is the type Lam, is of the form (|A^lD with 

Nl = KIc + (Id X Id) + (Id ® {KM)) 

where Ic = (!,_ e-)• 1) is the container with one shape and one position, representing the 
identity functor on Set, and M = (2, x i—>■ if x then 1 else 0) is the container with two 

shapes, the first one with one position, and the second one with no position. M represents 

the functor on Set mapping X to + 1. 

Nested Types as Functors on Containers. The next thing on our agenda is to show 
that every element N of Nest has an interpretation as an operator on containers (NDcont : 
Cont Cont, such that (|N|)cont is the restriction of (N) to the subcategory of functors 
that are extension of containers. This is done easily enough by recursion on N, noting that 
containers are closed under coproduct, product and composition: 

Lemma 5.1 1 |AAG05] 1. Let {S,P) and {S',P') be containers. Define 
{S,P) + {S’,P') := {S + S',[P,P']) 

{S, P) X {S', P') := {S X S', {s, s') ^ P{s) + P'{s')) 

{S, P) o (5', P') := (Ss : 5. {P{s) ^ 5'), (s, /) ^ Sp : P{.s). P'{f(j}))) 

We then have 

1(5, P) + {S', POlcont = IS, Plcont + I^', ^’Icont 
1(5, P) X (5',P')lcont = [5,Plcont X I5',P'lcont 
1(5, P) O (5', POlcont = IS, Plcont O [5', P'lcont □ 


Thus, the interpretation !\N\j indeed restricts to the subcategory Cont: 


Proposition 5.2. Define (—Dcont : N^st —)• Cont —)• Cont by 



Cont C 


= c 




<IK 

(5,P)Dcon, 

c 

= iS,P) 




^0 

+ -^iDcont 

c 

= (|Po)cont 

c 

+ (Pi) Cont 

c 

^0 

X Pi)Cont 

c 

= (|Po)cont 

c 

X (Pi)Cont 

c 

(^0 

® Pi)Cont 

c 

= (PoilCont 

c 

O (Pi)Cont 

c 


The following diagram then commutes: 


Cont (Set ^ Set) 


dA^Dcont 


Cont-^ (Set —^ Set) 

[-ICont ^ ^ 


□ 
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Coming back to our running example, if we consider the nested code Nl for Lam, we have 

^NL)cont{S,P) = {Sl,Pl) With 


Sl 

Pl (ini *) 

Pl (in2 (s,®')) 
Pl (ins {s,f)) 


1 + {S X S) + ^s: S. P{s) 2 

1 

P{s) + P{s') 

Sp : P{s). if f{p) then 1 else 0 


We see that indeed the positions P show up in the equation for the shape Sl, so that 
we should expect an inductive-recursive definition to be the initial solution to this set of 
equations. 


Nested Types are Containers. We know that Cont = Fam(Set°*’). Now, we want to show 
that for every code N : Nest, the functor (NDcont is a IR”^ functor: to see this one needs to 
carefully examine the constructions on families used to build (|NDcont- We will need to show 
that we can emulate the identity functor, containers and container product, coproduct and 
composition using IR"*" codes. Most of these are straightforward, but container composition 
will require some sophistication: we will need to observe that all IR"^ codes in question 
in fact are of a particularly simple, uniform form. We deal with each code in the nested 
grammar in turn. 

Lemma 5.3 (IR^ codes for Id and K{S,P)). 

(i) I5i((X : 1 ^ Set°P) ^ i{X*))jC ^ C. 

(ii) las{s^iP{smC^{S,P). □ 

For encoding co ntai ner coproducts, we can reuse the binary coproducts -Fir on IR^ 
codes from Example l2.5l . 

Lemma 5.4 (IR+ codes for N + N’). [7 -Fir q'JC = (bloC -F hloC, [ MiC, h'liC ]). □ 

Emulating products of containers requires a little more work. The basic idea is that 
we get the product of two codes 7 and 7 ' by replacing all occurrences of the terminating 
code tc in the first code 7 by the second code 7 ', where, in turn, we replace all codes tc' 
with t (c X c'). In general, we can replace id with iG{c,d) for a functor G : C x C —>■ C. 
Formally, we define a functor _[ix 1 —> iG(_, x)] : IR^ x C —>■ IR"^ for such a functor G by 

(id) [i X I— > lG{c, x)] = i G{c, d) 

(fj^/)[ix I—)• G(c,x)] = a A {Xa.f{a)[ix 1 — iG{c,x)]) 

{6A F)[ix I —> G{c, x)] = 6a {Xh. F{h)[i x 1 — lG{c, x)]) 

See the formal development |GMNFi4] for the action on morphisms, which needs to be 
defined simultaneously in order to show that F{h)[ix 1 —> iG(c,x)] in the 6 case again is a 
functor. Using this, we can now dehne the product 7 Xg 7 ' of two codes with respect to 
the functor G: 

{id) Xq 7 = 7 [tx I —> iG{c,x)] 

{<la /) xg 7 = (7A{Xa . /(a) xg 7 ) 

{6a F) xgI = 6A{Xh. F{h) xq 7 ) 

Again, we need to simultaneosuly show that Xg is functorial in order for F{h) x 7 in the <5 
case to be a functor. 

Lemma 5.5. [7 Xg i\G = (I 7 I 0 G x |7'loC', (s, s') ^ G(| 7 ]]iGs, MiCs')). 


□ 
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In particular, if we choose G{X,Y) = X + Y,we recover the container product. 

Finally, we get to container composition. Composition of IR”*" codes (and IR codes) 
is an open problem in general, but since we are interested in emulating composition of 
containers, one could hope that there is more structure to be exploited, and this is indeed 
the case. The main insight is that all codes in the image of the translation are uniform, 
in the sense of unpublished work by Peter Hancock. Intuitively, a IR”^ code is uniform 
if the shape of the code (i.e. ajbji followed by ajbji followed by...) is independent of 
the arguments; e.g. a a (Ax . (Ay . (5c(x,y) (A-z • ^ d(x, y, .z)))) is uniform, while the code 
(Tn (Ax. if X = 17 then ^^(Ay. ic(y)) else ac{x){^y ■‘-d{x,y,z)) is not, since 

the shape is sometimes (J-5-l and sometimes a-a-5-i. A precise description and study of 
uniform IR”*" codes is out of scope of this paper; for further information, we refer to our 
formal development [GMNFid] . 

The main construction that uniform IR'^ codes allow, while arbitrary codes seem not 
to, is to construct a code for exponentiation of a IR"*" code 7 with a set K, i.e. a code 
A —)■ 7 such that \K 7 JC' = {K MoC')/ : K. | 7 liC'(/(A:))). No te h ow there 

is a sigma type in the decoding of the family; as we have seen in Example l3.5l . families 
closed under S are canonical examples of a IR^ construction. Since the construction of 
A —>■ 7 depends on the definition of uniform codes, we do not give it here, but refer again 
to our Agda formalisation [GMNFl^ . where we also show that all constructions so far in 
this section result in uniform codes (except for the coproduct of codes, whose construction 
must be modified slightly). Given such a construction, we can now interpret also container 
composition with nested functors as a IR"^ code by dehning • : Nest —IR”^ ^ IR’*' in the 
following way: 

ld .7 = ,5i (AA.A(*) ^ 7 ) 

A (S', P) • 7 = as (As . P{s) 7 ) 

(A + A') • 7 = (A" • 7 ) +IR {N' • 7 ) 

(A X A') • 7 = (A • 7 ) x+ (A' • 7 ) 

(A @ A') • 7 = A • (A' • 7 ) 

Lemma 5.6. |A • 7 JC' = ((APcontC) o ItIC*- □ 

Putting everything together, we arrive at the main theorem of this section. 


Theorem 5.7. For every A : Nest, the initial algebra ^(A) exists and is a container 
functor. 


Proof. By Lemmas l5.3l to Is^ . (|A|)cont is an IR”*^ functor. Hence by the results in Section^, it 
has an initial algebra which is a container {Sn,Pn)- Since |—Icont preserves initial objects 
and filtered colimits of car tesia n morphisms (Abbott |Abb03] . Propositions 4.5.1 and 4.6.7) 
and we know from Lemma 7T in Section 0 that the initial algebra chain of an IR"*" functor is 
made from cartesian morphisms only, we can conclude that {{Sn, PAr)lcont = lidA), showing 
that all nested types indeed are dehnable using containers. D 


6. Gomparison to Plain IR 

We now inv esti gate the relationship between IR”*" and IR. On the one hand we show in 
Proposition l6.ll how to embed Dybjer and Setzer’s original coding scheme for IR into IR”*^; 
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this way we can see IR as a subsystem of IR”*". On the other hand we show in Proposition lb.2l 
that on discrete categories, the two schemas agrees having the same functorial interpretation; 
thus, using the canonical embedding of the discretisation of a category into itself, we can 
build a functor mapping IR^ into IR. 

Note that every type D can be regarded as a discrete category, which we by abuse of 
notation denote \D\. In the other direction, every category C gives rise to a type |C| whose 
elements are the objects of C. 

Proposition 6.1. There is a function ip : IR(ll) —IR^ \D\ such that 

[‘/5(7)1|R+|D| = WlR(D) 

Proof. The only interesting case is j = 6 a F '■ IR(T>); we define ip{6A F) = 6 a {p o F). We 
need to ensure that ip o F indeed is a functor, but since \D\ is a discrete, so is A \D\, 
and the mapping on objects ip o F : {A ^ |Z1|) IR^ \D\ can trivially be extended to a 
functor (^ —)■ |Z1|) —IR”*" |i7|. It is easy to see that the two semantics do agree: on objects, 
the action is the same, and if {h, id) is a mor phis m in Farm \D\, we see from the definition 
of [[(5 a -^1ir+ |d|(^) k) in the proof of Theorem l3..'ll that 

[(5a(¥?oT)]|r+|^|(/i, id) = [in,jogO l(p{F{Q o h o g)j{h,\d) o |(<y9 o F)^(c?*(id))]|(x,p)]g 

= [irihog o It{F{Q oho g)j{h, id)]g:A^X 
= [irihogO [[T((3 o/io5')1ir(d)(/i, id)]g:A^Js: 

= T]||R(£)) 

where [[((/? o F)_,{g*{\d))j(^x,P) = since [[((/? o F)(-)](x,p) is a functor. □ 

This proposition shows that the theory of IR can be embedded in the theory of IR”*". 
Some readers might perhaps be surprised that we only define a function IR(Ti) —)• IR"*" \D\, 
and not a functor. The reason is the mismatch of morphisms between IR(Ti) and IR”*" jUj; 
because IR(T)) has a full and faithful embedding into Fam jUj —Fam jUj, whereas IR^ \D\ 
has not, there are necessarily morphisms in IR(i7) that have no counterpart in IR^ \D\. 
Going the other way, we are more succes sful, and can make the previous result more precise: 
using the functoriality of Fam (Remarks 12.31 ) . we can embed Farm jCj into Fam(C). We can 
then show that forgetting about the extra structure of C in IR”*" simply gets us back to plain 
IR. 

Proposition 6.2. Let e : jCj —>■ C the canonieal embedding of the diseretisation of a 
eategory C into itself. There is a funetor fj : IR’*’C —> IR jCj such that for all 7 : IR'''C 

Fam(e) o [i/^(7)]|r|c| = l7liR+(C) ° Fam(e) (*) 

Furthermore, ip o cp = '\d, where ip : IR(C) —>■ IR’*" jCj is the funetion from Provosition \6.L 

Proof. We define the functor : IR"*'(C) —)■ IR jCj by recursion on the structure of 7 . On 
objects, 'll! is defined as follows: 

'il{ic) = iC 

'ipicTAf) = (TA{a eA ipifa)) 


iP{6aF) = 6a{X ^ i;{F{e o X))) 

We now use full and faithfulness of the interpretation functor |-]|ir|c|; as proved in Ghani 
et al. |GHM^13 , to let the function ip act on morphisms as well as on objects. Since the two 
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interpretation functors agree on objects, i.e. [ 7 ]](X,P) = ['0(7)]]|r|c|(-^,-P), alR”*" morphism 

p ; 7 — 7 ' corresponds to a natural transformation [pj : |' 0 ( 7 )]]ir| c| [V'ItOIirICI- By full 
and faithfulness of [-]1ir|c| such a natural transformation corresponds to an IR morphism 
^( 7 ) ^ which we take as the definition of “ipip)- Similarly, full and faithfulness 

of I-liR|C| ensure that composition and identity are preserved by 1 /^, which is therefore a 


functor. 

We are left with checking that (j*j) holds for morphisms. Recall from Remarks l2.3l that 
a morphism in Fam |C| correspond to a split cartesian morphism in Fam(C), i.e one whose 
second component is an identity. Thus, to verify (gj) it is enough to check that I 7 ]] preserves 
such split cartesian morphisms. The interesting case is 7 = Let {h, id) : {X, P oh) ^ 
(y, P) be a morphism in Fam |C|. We have 


= [inhog o lP(Po ho c/)](/i,id) o |F_^( 5 f*(id))]](jf_p)]g:^^x 

= [inhog o IF{P ohog)j (h, \d)]g -.a^x 

where [[F(5r*id)]l(x,P) = id since g*, F and |_]] are functors. By the induction hypothesis, 
each |P(P oho g')]](h,id) is split cartesian. Furthermore injections are split cartesian in 
Fam(C), and since compositions and cotuplings of split cartesian morphisms are still split 
cartesian in Fam(C) we conclude that |( 5 y 4 P]](/i, id) indeed is a split cartesian morphism as 
required. 

Finally, since £ is the identity on discrete categories the two schemas agrees on discrete 
categories and we automatically get ijj o p = \d. □ 


7. Existence of Initial Algebras 

We briefly revisit the initial algebra argument used by Dybjer and Setzer [DS99| . Inspecting 
their proof, we see that it indeed is possible to adapt it also for the more general setting of 
positive inductive-recursive definitions by making the appropriate adjustments. 

Remember that a morphism {h,k) : {U,T) —>■ {U,T') in Fam(C) is a split cartesian 
morphism if h = idp, i.e. T' o h = T, and that Fam |C| is the subcategory (subfibration) 
of Fam(C) with the same objects, but with morphisms the split cartesian ones only. The 
proof of existence of initial algebras for IR functors as given by Dybjer and Setzer |DS99] 
takes place in the category Fam |C|. The hard work of the proof is divided between two 
lemmas. First Dybjer and Setzer prove that an IR functor [ 7 ] preserves /t-hltered colimits 
if K is an inaccessible cardinal which suitably bounds the size of the index sets in the 
image of the filtered diagram. Secondly they use the assumption of the existence of a 
large cardinal, namely a Mahlo cardinal, to prove that such a cardinal bound for the index 
sets can actually be found. The exact definition of when a cardinal is a Mahlo cardinal 
will not be important for the current presentation; see Dybjer and Setzer |DS99j . or the 
second author’s thesis |Mall5| for how this assumption is used. The existence of an initial 
algebra then follows a standard argument: the initial algebra of a K-continuous functor can 
be constructed as the colimit of the initial chain up to k iterations (see e.g. Adamek et 
al. |AMMin] i. 

Inspecting the proofs, we see that they crucially depend on morphisms being split 
cartesian in several places. Luckily, the morphisms involved in the corresponding proofs 
for IR'*' actually are! As is well-known, a weaker condition than ^-continuity is actually 
sufficient: it is enough that the functor in question preserve the specific colimit of the initial 
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K-chain. We thus show that the initial chain of a IR"*" functor actually lives in Farm |C|, which 
will allow us to modify Dybjer and Setzer’s proof accordingly. 


Lemma 7.1. For each 7 : IR'''C, the initial chain 

0^l7l(0)^l7f(0)^... 

consists of split cartesian morphisms only. 


Proof. Recall that the connecting morphisms Uj^k ■ [7F(0) —^ I7F(0) are uniquely deter¬ 
mined as follows; 


• wo.i = !|.^](o) is unique. 

• ‘^j+i,k+i is MKifc): hKMFo)) ^ hKhFCo))- 

• uij^k is the colimit cocone for j a limit ordinal. 


We prove the statement by induction on j. It is certainly true that ![ 7 ](o) : (0) l7l(0) is 

an identity at each component — there are non e. Thus wq,! is a split cartesian morphism. 
At successor stages, we apply Proposition l6.2l and the induction hypothesis. Finally, at 
limit stages, we use the fact that the colimit lives in Fam |C| and hence coincides with the 
colimit in that category on split cartesian morphisms, so that the colimit cocone is split 
cartesian. □ 


Inspecting Dybjer and Setzer’s orig inal proof, we see that it now goes through also for 
IR”*" if we insert appeals to Lemma 1 7. ll where necessary. To finish the proof, we also need 
to ensure that Fam(C) has k- filtered colimits; this is automatically true if C has all small 
connected colimits (compare Bemarks l2..'ll ). since Fam(C) then is cocomplete. Note that 
discrete categories have all small connected colimits for trivial reasons. 


Theorem 7.2. Assume that a Mahlo cardinal exists in the meta-theory. IfC has connected 
colimits, then every functor [[ 7 ] for 7 : IR'*’C has an initial algebra. D 


8. Conclusions and Future Work 

In this paper we have introduced the theory IR”^ of positive inductive-recursive defini¬ 
tions as a generalization of Dybjer and Setzer’s theory IR of inductive-recursive dehni- 
tions |DS99l IDS031 IDS06j , different from the fibrational generalization explored in Ghani 
et al. [GMNFS13| : by modifying both syntax and semantics of IR we have been able to 
broaden the semantics to all of Fam(C) and not just Fam |C|. The theory of IR^, with IR 
as a subtheory, paves the way to the analysis of more sophisticated data types which allow 
not only for the simultaneous definition of an inductive type X and of a recursive function 
f : X ^ D, but also takes the intrinsic structure between objects in the target type D 
into account. This is the case for example when D is a setoid, the category Set or Set°’’, a 
groupoid or, even more generally, an arbitrary category C. 

In future work we aim to explore the theory of IR^ from a fibrational perspective: 
this will allow us to reconcile the theory of IR^ with the analysis of IR as given in 
Ghani et al. [GMNFS13j . In particular this will amount to characterising the semantics 
of 6 codes as left Kan extensions. An open problem for both IR^ and IR is the question 
whether the definable functors are closed under composition, i.e. if there is a code 707 ' such 
that [7 o 7 ']] = [ 7 ]] o [ 7 '] for all codes 7 and 7 ^ Another interesting direction of research is 
to investigate to which extent the rich structure of the families construction Fam will help 
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shed light on the analysis of IR'*' types: in particular to exploit the monadic structure of 
Fam and then to investigate the relationship between the theory of and the theory of 
familial 2-functors introduced by Weber [Web07] . 
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